unit segPermissoesSistema;

interface

uses prsBase, Rtti, prsAtributos;

type
  [attTabela('PermissoesSistema')]
  TPermissoesSistema = class(TTabela)
  private
    FModulo: integer;
    FSistema: integer;
    FVisualizacao: string;
    procedure SetModulo(const Value: integer);
    procedure SetSistema(const Value: integer);
    procedure SetVisualizacao(const Value: string);
  public
    [attPk]
    property Modulo: integer read FModulo write SetModulo;
    [attPk]
    property Sistema: integer read FSistema write Setsistema;
    property Visualizacao: string read FVisualizacao write SetVisualizacao;
  end;

implementation

{ TPermissoesSistema }

procedure TPermissoesSistema.SetSistema(const Value: integer);
begin
  FSistema := Value;
end;

procedure TPermissoesSistema.SetModulo(const Value: integer);
begin
  FModulo := Value;
end;

procedure TPermissoesSistema.SetVisualizacao(const Value: string);
begin
  FVisualizacao := Value;
end;

end.
